home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TK-PAGE1.ZIP / PAGE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-15  |  3KB  |  202 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     Time     TIME001
  25.     Time     TIME002
  26.     Time     TIME003
  27.     Time     TIME004
  28.     Byte     BYTE001
  29.     Byte     BYTE002
  30.     Byte     BYTE003
  31.     Byte     BYTE004
  32.     Byte     BYTE005
  33.     Byte     BYTE006
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     :LABEL001
  38.     PageOn
  39.     GetUser
  40.     BYTE001 = ReadLine(PPEPath() + "PAGE.CFG", 1)
  41.     BYTE002 = ReadLine(PPEPath() + "PAGE.CFG", 2)
  42.     BYTE005 = ReadLine(PPEPath() + "PAGE.CFG", 3)
  43.     BYTE006 = ReadLine(PPEPath() + "PAGE.CFG", 4)
  44.     BYTE003 = ReadLine(PPEPath() + "PAGE.CFG", 5)
  45.     BYTE004 = ReadLine(PPEPath() + "PAGE.CFG", 6)
  46.     STRING002 = ReadLine(PPEPath() + "PAGE.CFG", 7)
  47.     STRING004 = ReadLine(PPEPath() + "PAGE.CFG", 8)
  48.     STRING005 = ReadLine(PPEPath() + "PAGE.CFG", 9)
  49.     TIME001 = ReadLine(PPEPath() + "PAGE.CFG", 10)
  50.     TIME002 = ReadLine(PPEPath() + "PAGE.CFG", 11)
  51.     TIME003 = ReadLine(PPEPath() + "PAGE.CFG", 12)
  52.     TIME004 = ReadLine(PPEPath() + "PAGE.CFG", 13)
  53.     If ((TIME001 < Time()) && (TIME002 > Time())) Goto LABEL002
  54.     If ((TIME003 < Time()) && (TIME004 > Time())) Goto LABEL002
  55.     Goto LABEL004
  56.     :LABEL002
  57.     Cls
  58.     DispFile PPEPath() + "PAGE.PCB", 0
  59.     AnsiPos BYTE001, BYTE002
  60.     STRING001 = ""
  61.     InputStr "_", STRING001, 7, BYTE006, Mask_Ascii(), 0
  62.     Log "--[toxic krystal Pager started]-----------------------", 0
  63.     Log "User: " + U_Name(), 0
  64.     Log "Reason: " + STRING001, 0
  65.     Log "------------------------------------------------------", 0
  66.     FCreate 1, PPEPath() + "PAGE.REZ", 1, 3
  67.     FPutLn 1, U_Name()
  68.     FPutLn 1, STRING001
  69.     FPutLn 1, String(U_Sec)
  70.     FPutLn 1, String(MinLeft())
  71.     FPutLn 1, U_Bdl()
  72.     FPutLn 1, U_Bul()
  73.     FClose 1
  74.     AnsiPos BYTE003, BYTE004
  75.     If (Len(STRING001) == 0) End
  76.     If (Len(STRING001) >= BYTE005) Goto LABEL003
  77.     Print "@X0FToo Short Dude!"
  78.     Delay 10
  79.     Goto LABEL001
  80.     :LABEL003
  81.     Print "@X0FPaging " + STRING002 + " Pleas Wait!"
  82.     Shell 0, STRING003, PPEPath() + "PAGE.EXE", PPEPath()
  83.     If (ReadLine(PPEPath() + "PAGE.REP", 1) == "*") Goto LABEL005
  84.     Cls
  85.     If (ReadLine(PPEPath() + "PAGE.REP", 1) == "-") DispFile PPEPath() + "PAGE2.PCB", 0
  86.     If (ReadLine(PPEPath() + "PAGE.REP", 1) == "%") DispFile PPEPath() + "PAGE4.PCB", 0
  87.     If (ReadLine(PPEPath() + "PAGE.REP", 1) == "X") DispFile PPEPath() + "PAGE5.PCB", 0
  88.     Cls
  89.     Color 8
  90.     AnsiPos 16, 11
  91.     Print "Coded By THe BLaCK aSSaSSiN     TOXiC KRYSTAL '96"
  92.     Delay 4
  93.     Color 7
  94.     AnsiPos 16, 11
  95.     Print "Coded By THe BLaCK aSSaSSiN     TOXiC KRYSTAL '96"
  96.     Delay 4
  97.     Color 15
  98.     AnsiPos 16, 11
  99.     Print "Coded By THe BLaCK aSSaSSiN     TOXiC KRYSTAL '96"
  100.     Delay 6
  101.     Color 7
  102.     AnsiPos 16, 11
  103.     Print "Coded By THe BLaCK aSSaSSiN     TOXiC KRYSTAL '96"
  104.     Delay 4
  105.     Color 8
  106.     AnsiPos 16, 11
  107.     Print "Coded By THe BLaCK aSSaSSiN     TOXiC KRYSTAL '96"
  108.     Delay 4
  109.     Cls
  110.     End
  111.     :LABEL004
  112.     Cls
  113.     DispFile PPEPath() + "Page3.pcb", 0
  114.     InputYN "@X02Emergency Page (Y/N)_", STRING003, 7
  115.     If (!(Upper(STRING003) == "Y")) End
  116.     AnsiPos 1, GetY()
  117.     InputStr "@CLREOL@@X02Whats The Magic Word", STRING003, 7, 60, Mask_Ascii(), 1
  118.     If (Upper(STRING003) == Upper(STRING005)) Goto LABEL002
  119.     End
  120.     :LABEL005
  121.     PageOff
  122.     Call STRING004
  123.  
  124. ;------------------------------------------------------------------------------
  125. ;
  126. ; Usage report (before postprocessing)
  127. ;
  128. ; ■ Statements used :
  129. ;
  130. ;    4       End
  131. ;    5       Cls
  132. ;    5       Color 
  133. ;    7       Goto 
  134. ;    14      Let 
  135. ;    7       Print 
  136. ;    10      If 
  137. ;    5       DispFile 
  138. ;    1       FCreate 
  139. ;    1       FClose 
  140. ;    6       FPutLn 
  141. ;    1       GetUser
  142. ;    4       Log 
  143. ;    2       InputStr 
  144. ;    1       InputYN 
  145. ;    6       Delay 
  146. ;    1       Shell 
  147. ;    1       Call 
  148. ;    8       AnsiPos 
  149. ;    1       PageOn
  150. ;    1       PageOff
  151. ;
  152. ;
  153. ; ■ Functions used :
  154. ;
  155. ;    28      +
  156. ;    7       ==
  157. ;    2       <
  158. ;    2       >
  159. ;    1       >=
  160. ;    1       !
  161. ;    2       &&
  162. ;    2       Len(
  163. ;    3       Upper()
  164. ;    4       Time()
  165. ;    2       U_Name()
  166. ;    1       U_Bdl()
  167. ;    1       U_Bul()
  168. ;    2       String()
  169. ;    2       Mask_Ascii()
  170. ;    25      PPEPath()
  171. ;    17      ReadLine()
  172. ;    1       MinLeft()
  173. ;    1       GetY()
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Analysis flags : SC
  178. ;
  179. ; S - Shell to DOS ■ 5
  180. ;     This may be normal if the PPE need to execute an external command,
  181. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  182. ;     or usefull (sorting, maintenance,...). Check!
  183. ;     ■ Search for : SHELL
  184. ;
  185. ; C - Call child PPE ■ 3
  186. ;     This is usually normal, but may be a tricky way to launch some
  187. ;     sysop-only commands.
  188. ;     ■ Search for : CALL
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Postprocessing report
  193. ;
  194. ;    0       For/Next
  195. ;    0       While/EndWhile
  196. ;    0       If/Then or If/Then/Else
  197. ;    0       Select Case
  198. ;
  199. ;------------------------------------------------------------------------------
  200. ;                 AEGiS Corp - Break the routines, code against the machines!
  201. ;------------------------------------------------------------------------------
  202.